home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / sim756_Fil2080928282007.psc / Source Code / fspExt / fspFunction.bas < prev    next >
BASIC Source File  |  2007-05-18  |  2KB  |  53 lines
  1. Attribute VB_Name = "fspFunction"
  2. '====================================================================================
  3. 'THE FILE MERGING MODULE
  4. '====================================================================================
  5. '
  6. 'This program/module is free software; you can redistribute it and/or modify
  7. 'it under the terms of the GNU General Public License as published by
  8. 'the Free Software Foundation; either version 2 of the License, or
  9. '(at your option) any later version.
  10. '
  11. 'For the first time this software is written by,
  12. 'Sadequl Islam Mithun 756
  13. '<sim756@gmail.com>
  14. '<http://sim756.googlepages.com
  15. '
  16. 'DEVELOPER(S)
  17. '<NAME>
  18. '<EMAIL>
  19. '<WEB>
  20. '
  21. '====================================================================================
  22.  
  23. Public Function fspmk(fspDFolder As String)
  24.     On Error GoTo eor:
  25.     Dim dta As Byte
  26.     Dim mk As String, k_ As Long
  27.     Dim FileName As String, fspTotal
  28.     akFileName = App.Path & "\"
  29.     FileName = App.EXEName & ".exe"
  30.     Open FileName For Input As #3
  31.         Seek #3, 28672 '40960
  32.         Line Input #3, fspTotal
  33.     Close #3
  34.     fspForm1.Picture3.ScaleWidth = Val(fspTotal)
  35.     FileName = App.EXEName
  36.     Open fspDFolder & "\" & FileName For Binary As #1
  37.         Do Until Val(xz) >= Val(fspTotal)
  38.             DoEvents
  39.             xz = xz + 1
  40.             Open akFileName & FileName & xz & ".spt" For Binary As #2
  41.                 For k = 1 To LOF(2)
  42.                     Get #2, , dta
  43.                     Put #1, , dta
  44.                 Next k
  45.             Close #2
  46.             fspForm1.c7.Width = Val(xz)
  47.         Loop
  48.     Close #1
  49.     Exit Function
  50. eor:
  51.     If Err Then MsgBox "Error!" & Chr(10) & "Error Number : " & Err.Number & Chr(10) & "Error Description : " & Err.Description, vbCritical + vbOKOnly, "Error"
  52. End Function
  53.